home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
program
/
lgavb25.zip
/
VB.ZIP
/
LGSCALES.FRM
< prev
next >
Wrap
Text File
|
1996-01-07
|
18KB
|
546 lines
VERSION 2.00
Begin Form ScaleDemo
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Scales"
ClientHeight = 3315
ClientLeft = 2430
ClientTop = 2595
ClientWidth = 8625
Height = 3675
Left = 2370
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3315
ScaleWidth = 8625
Top = 2295
Width = 8745
Begin Frame Frame6
BackColor = &H00C0C0C0&
Caption = "Orientation"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Left = 6930
TabIndex = 10
Top = 120
Width = 1560
Begin OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "Vertical"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 1
Left = 150
TabIndex = 11
Top = 510
Width = 1275
End
Begin OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "Horizontal"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 0
Left = 150
TabIndex = 12
Top = 270
Value = -1 'True
Width = 1275
End
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 1
Bands = 2
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CaptionID = 0
Captions = 0
FontID = 0
Height = 3045
Left = 180
Orientation = 0 ' 0 - Horizontal
PointerID = 0
Pointers = 2
ScaleID = 0
Scales = 2
TabIndex = 13
TicID = 3
Tics = 4
Top = 120
Width = 3885
ZLoad = LGSCALES.FRX:0000
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Scale ID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Left = 4200
TabIndex = 0
Top = 120
Width = 1035
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "1"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 1
Left = 165
TabIndex = 2
Top = 510
Width = 615
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 165
TabIndex = 1
Top = 255
Value = -1 'True
Width = 615
End
End
Begin Frame Frame5
BackColor = &H00C0C0C0&
Caption = "Scale Position Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 4200
TabIndex = 3
Top = 2145
Width = 4305
Begin HScrollBar HScroll1
Height = 240
Index = 2
Left = 1470
Max = 100
TabIndex = 4
Top = 345
Width = 2400
End
Begin HScrollBar HScroll1
Height = 240
Index = 3
Left = 1470
Max = 100
TabIndex = 5
Top = 585
Width = 2400
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 3
Left = 3885
TabIndex = 6
Top = 615
Width = 180
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 2
Left = 3885
TabIndex = 7
Top = 375
Width = 180
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScalePositionStart:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 4
Left = 120
TabIndex = 8
Top = 330
Width = 1350
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScalePositionStop:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 5
Left = 120
TabIndex = 9
Top = 585
Width = 1335
End
End
Begin Frame Frame3
BackColor = &H00C0C0C0&
Caption = "Scale Limit Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 4200
TabIndex = 17
Top = 1035
Width = 4305
Begin HScrollBar HScroll1
Height = 240
Index = 0
Left = 1470
Max = 100
TabIndex = 19
Top = 345
Width = 2400
End
Begin HScrollBar HScroll1
Height = 240
Index = 1
Left = 1470
Max = 100
TabIndex = 18
Top = 585
Width = 2400
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 0
Left = 3900
TabIndex = 23
Top = 390
Width = 180
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Scale Max:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 0
Left = 660
TabIndex = 22
Top = 330
Width = 795
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Scale Min:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 690
TabIndex = 21
Top = 585
Width = 735
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 1
Left = 3900
TabIndex = 20
Top = 630
Width = 180
End
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Scale Direction"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 0
Left = 5310
TabIndex = 14
Top = 120
Width = 1560
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Backward"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 1
Left = 150
TabIndex = 16
Top = 510
Width = 1335
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Forward"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 0
Left = 150
TabIndex = 15
Top = 270
Value = -1 'True
Width = 1245
End
End
End
Sub Form_Load ()
hscroll1(0) = lgauge1.ScaleMax
hscroll1(1) = lgauge1.ScaleMin
hscroll1(2) = lgauge1.ScalePositionStart * 100
hscroll1(3) = lgauge1.ScalePositionStop * 100
option2(lgauge1.ScaleDirection) = True
End Sub
Sub HScroll1_Change (index As Integer)
Select Case index
Case 0
If lgauge1.ScaleMin < hscroll1(0) Then
lgauge1.ScaleMax = hscroll1(0)
Else
hscroll1(0) = lgauge1.ScaleMin
End If
If lgauge1.ScaleID = 0 Then
lgauge1.TicID = 0
lgauge1.TicStop = hscroll1(0)
lgauge1.TicID = 1
lgauge1.TicStop = hscroll1(0)
Else
lgauge1.TicID = 2
lgauge1.TicStop = hscroll1(0)
lgauge1.TicID = 3
lgauge1.TicStop = hscroll1(0)
End If
lgauge1.PointerID = lgauge1.ScaleID
If lgauge1.PointerValue > hscroll1(0) Then
lgauge1.PointerValue = hscroll1(0)
End If
lgauge1.BandID = lgauge1.ScaleID
lgauge1.BandStop = lgauge1.ScaleMax
label2(0) = hscroll1(0)
Case 1
If lgauge1.ScaleMax > hscroll1(1) Then
lgauge1.ScaleMin = hscroll1(1)
Else
hscroll1(1) = lgauge1.ScaleMax
End If
If lgauge1.ScaleID = 0 Then
lgauge1.TicID = 0
lgauge1.TicStart = hscroll1(1)
lgauge1.TicID = 1
lgauge1.TicStart = hscroll1(1)
Else
lgauge1.TicID = 2
lgauge1.TicStart = hscroll1(1)
lgauge1.TicID = 3
lgauge1.TicStart = hscroll1(1)
End If
lgauge1.PointerID = lgauge1.ScaleID
If lgauge1.PointerValue < hscroll1(1) Then
lgauge1.PointerValue = hscroll1(1)
End If
lgauge1.BandID = lgauge1.ScaleID
lgauge1.BandStart = lgauge1.ScaleMin
label2(1) = hscroll1(1)
Case 2
lgauge1.ScalePositionStart = hscroll1(2) / 100
label2(2) = hscroll1(2) / 100
Case 3
lgauge1.ScalePositionStop = hscroll1(3) / 100
label2(3) = hscroll1(3) / 100
End Select
End Sub
Sub HScroll1_Scroll (index As Integer)
Select Case index
Case 0
If lgauge1.ScaleMin < hscroll1(0) Then
lgauge1.ScaleMax = hscroll1(0)
Else
hscroll1(0) = lgauge1.ScaleMin
End If
If lgauge1.ScaleID = 0 Then
lgauge1.TicID = 0
lgauge1.TicStop = hscroll1(0)
lgauge1.TicID = 1
lgauge1.TicStop = hscroll1(0)
Else
lgauge1.TicID = 2
lgauge1.TicStop = hscroll1(0)
lgauge1.TicID = 3
lgauge1.TicStop = hscroll1(0)
End If
lgauge1.PointerID = lgauge1.ScaleID
If lgauge1.PointerValue > hscroll1(0) Then
lgauge1.PointerValue = hscroll1(0)
End If
lgauge1.BandID = lgauge1.ScaleID
lgauge1.BandStop = lgauge1.ScaleMax
label2(0) = hscroll1(0)
Case 1
If lgauge1.ScaleMax > hscroll1(1) Then
lgauge1.ScaleMin = hscroll1(1)
Else
hscroll1(1) = lgauge1.ScaleMax
End If
If lgauge1.ScaleID = 0 Then
lgauge1.TicID = 0
lgauge1.TicStart = hscroll1(1)
lgauge1.TicID = 1
lgauge1.TicStart = hscroll1(1)
Else
lgauge1.TicID = 2
lgauge1.TicStart = hscroll1(1)
lgauge1.TicID = 3
lgauge1.TicStart = hscroll1(1)
End If
lgauge1.PointerID = lgauge1.ScaleID
If lgauge1.PointerValue < hscroll1(1) Then
lgauge1.PointerValue = hscroll1(1)
End If
lgauge1.BandID = lgauge1.ScaleID
lgauge1.BandStart = lgauge1.ScaleMin
label2(1) = hscroll1(1)
Case 2
lgauge1.ScalePositionStart = hscroll1(2) / 100
label2(2) = hscroll1(2) / 100
Case 3
lgauge1.ScalePositionStop = hscroll1(3) / 100
label2(3) = hscroll1(3) / 100
End Select
End Sub
Sub Option1_Click (index As Integer)
lgauge1.ScaleID = index
hscroll1(0) = lgauge1.ScaleMax
hscroll1(1) = lgauge1.ScaleMin
hscroll1(2) = lgauge1.ScalePositionStart * 100
hscroll1(3) = lgauge1.ScalePositionStop * 100
option2(lgauge1.ScaleDirection) = True
option2(lgauge1.Orientation) = True
End Sub
Sub Option2_Click (index As Integer)
lgauge1.ScaleDirection = index
End Sub
Sub Option3_Click (index As Integer)
lgauge1.Orientation = index
End Sub
